home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD013b.dsk / BUG FINDER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  45 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM 
  3. 120  REM  BUG FINDER
  4. 130  REM  PAUL RAYMER
  5. 140  REM  POB 42831 LAS VEGAS
  6. 150  REM  NEVADA 89116
  7. 160  REM 
  8. 170  REM  X/XV/MCMLXXX
  9. 180  HOME 
  10. 190  INPUT "HOW MANY LEGS DOES THE BUG HAVE? ";L$: IF  VAL(L$) >0  THEN  PRINT : INVERSE : PRINT  CHR$(7);"PLEASE USE A WORD NOT A NUMBER!        ": NORMAL : GOTO 190
  11. 200  HOME : INPUT "DOES IT HAVE WINGS? ";W$
  12. 210  HOME : INPUT "WHAT COLOR IS IT? ";C$
  13. 220  HOME : INPUT "HOW BIG IS IT? ";S$
  14. 230  HOME : INPUT "WHAT DO YOU THINK IT IS? ";O$
  15. 240  PRINT "HOW SURE ARE YOU..."
  16. 250  PRINT : HTAB 5: PRINT "1) POSITIVE"
  17. 260  HTAB 5: PRINT "2) QUITE SURE"
  18. 270  HTAB 5: PRINT "3) POSSIBLY"
  19. 280  HTAB 5: PRINT "4) NOT TOO SURE"
  20. 290  PRINT : INPUT "SELECT BY NUMBER ";P
  21. 300  HOME 
  22. 310  ON P GOTO 330,340,350,360
  23. 320  GOTO 240
  24. 330 P$ = "POSITIVELY": GOTO 390
  25. 340 P$ = "QUITE LIKELY": GOTO 390
  26. 350 P$ = "CONCEIVABLEY": GOTO 390
  27. 360 P$ = "NOT LIKELY": GOTO 390
  28. 370  IF  LEFT$(W$,1) < >"Y"  THEN  PRINT "NON FLYING";
  29. 380  PRINT O$
  30. 390  HOME 
  31. 400  SPEED= 200
  32. 410  PRINT "HERE IS THE RESULTS OF THIS SCIENTIFIC  TEST ON BUGS."
  33. 420  PRINT 
  34. 430  PRINT "THE ";: INVERSE : PRINT "THING";: NORMAL : PRINT " YOU HAVE ASKED ABOUT IS "
  35. 440  SPEED= 50
  36. 450  IF  LEFT$(L$,1) = "E"  THEN  PRINT P$;" AN "L$;"-LEGGED": GOTO 470
  37. 460  PRINT P$;" A ";L$;"-LEGGED"
  38. 470  PRINT C$;" ";S$
  39. 480  IF  LEFT$(W$,1) = "Y"  THEN  PRINT "WINGED ";
  40. 490  IF  LEFT$(W$,1) < >"Y"  THEN  PRINT "NON-FLYING ";
  41. 500  PRINT O$
  42. 510  FOR Z = 1 TO 2000: NEXT Z
  43. 520  PRINT : PRINT "...OR SOMETHING ELSE"
  44. 530  SPEED= 255
  45. 540  VTAB 23: HTAB 1: END